home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / binutils.7 / binutils / binutils-2.7 / gas / testsuite / gasp / gasp.exp < prev    next >
Encoding:
Text File  |  1996-07-04  |  1.0 KB  |  41 lines
  1. # Test gasp.
  2.  
  3. proc gasp_test { filename testname opt }  {
  4.     global GASP
  5.     global srcdir
  6.     global host_triplet
  7.  
  8.     send_log "$srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out\n"
  9.     catch "exec $srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out" errs
  10.     catch "exec diff gasp.out $filename.out" diffs
  11.     set diffs [prune_system_crud $host_triplet $diffs]
  12.     if ![string match "" $diffs] {
  13.     send_log "$diffs\n"
  14.     verbose $diffs
  15.     fail $testname
  16.     return 0
  17.     } else {
  18.     pass $testname
  19.     }
  20.  
  21. }
  22.  
  23. foreach src [ lsort [ glob $srcdir/gasp/*.asm ] ] {
  24.     regsub -all ".asm" $src "" t
  25.     regsub "^.*/(\[^/\]*)$" $t "gasp \\1" testname
  26.     gasp_test $t $testname ""
  27. }
  28.  
  29. foreach src [ lsort [ glob $srcdir/gasp/mri/*.asm ] ] {
  30.     regsub -all ".asm" $src "" t
  31.     regsub "^.*/(\[^/\]*)$" $t "gasp MRI \\1" testname
  32.     gasp_test $t $testname "-M"
  33. }
  34.  
  35. # FIXME: this is here cause of a bug in DejaGnu 1.1.1. When it is no longer
  36. #        in use, then this can be removed.
  37. if [info exists errorInfo] then {
  38.     unset errorInfo
  39. }
  40.  
  41.